home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 53 / Tiger_Disk_053_1998-08_Tiger-Crew-Disk_de_Side_B.d64 / lbr lister v1.0! (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  599b  |  22 lines
  1. 100 poke53281,0:poke53280,0:print"[155][147]";
  2. 110 print spc(10)"[204]ibrary-[204]ister [214]1.0"
  3. 120 print spc(9)"[151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][155]":print
  4. 130 print"[151]([152][195][151]) by [152][205]arc [155]'[194]lack[202]ack' [152][210]intsch [151]in 1998":print:print
  5. 300 input"[204]ibrary-[206]ame ";n$
  6. 310 n$=n$+".lbr"
  7. 320 open2,8,2,n$+",s,r"
  8. 330 input#2,id$:print:print
  9. 340 if left$(id$,3)<>"dwb" then print"[206]o [204]ibrary!":close2:end
  10. 350 nr=val(mid$(id$,4))
  11. 360 print nr;"files in library ";n$
  12. 370 print:print "[206]ame               [212]yp [194]ytes  [194]locks":print
  13. 380 for i=1 to nr
  14. 390 :  input#2,f$,t$,s$
  15. 400 :  print chr$(34);f$;chr$(34);spc(18-len(f$));t$;"  ";s$;spc(6-len(s$));
  16. 410 :  s=val(s$)
  17. 420 :  print int(s/254)+1
  18. 425 :  b=b+s:bl=bl+int(s/254)+1
  19. 430 next
  20. 600 print:print"total size =";b;"bytes (=";bl;"blocks)"
  21. 900 close2
  22.